home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tooltip / tooltip.exe / FTEST.FR_ / FTEST.FR
Text File  |  1996-10-19  |  8KB  |  243 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "ToolTip Test"
  5.    ClientHeight    =   3030
  6.    ClientLeft      =   4035
  7.    ClientTop       =   4815
  8.    ClientWidth     =   5625
  9.    Height          =   3390
  10.    Left            =   3975
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3030
  15.    ScaleWidth      =   5625
  16.    Top             =   4515
  17.    Width           =   5745
  18.    Begin VB.CheckBox Check1 
  19.       Caption         =   "Check1"
  20.       Height          =   195
  21.       Left            =   2040
  22.       TabIndex        =   18
  23.       Top             =   2340
  24.       Width           =   2655
  25.    End
  26.    Begin VB.PictureBox Picture1 
  27.       BorderStyle     =   0  'None
  28.       Height          =   315
  29.       Left            =   1500
  30.       ScaleHeight     =   315
  31.       ScaleWidth      =   3975
  32.       TabIndex        =   14
  33.       Top             =   1680
  34.       Width           =   3975
  35.       Begin VB.OptionButton Radio 
  36.          Caption         =   "Option1"
  37.          Height          =   255
  38.          Index           =   2
  39.          Left            =   3000
  40.          TabIndex        =   17
  41.          Top             =   0
  42.          Width           =   1155
  43.       End
  44.       Begin VB.OptionButton Radio 
  45.          Caption         =   "Option1"
  46.          Height          =   255
  47.          Index           =   1
  48.          Left            =   1440
  49.          TabIndex        =   16
  50.          Top             =   0
  51.          Width           =   1155
  52.       End
  53.       Begin VB.OptionButton Radio 
  54.          Caption         =   "Option1"
  55.          Height          =   255
  56.          Index           =   0
  57.          Left            =   60
  58.          TabIndex        =   15
  59.          Top             =   0
  60.          Width           =   1155
  61.       End
  62.    End
  63.    Begin VB.ListBox List1 
  64.       Height          =   1230
  65.       ItemData        =   "fTest.frx":0000
  66.       Left            =   120
  67.       List            =   "fTest.frx":0002
  68.       TabIndex        =   13
  69.       Top             =   1680
  70.       Width           =   1335
  71.    End
  72.    Begin VB.TextBox txt 
  73.       Height          =   285
  74.       Index           =   0
  75.       Left            =   120
  76.       TabIndex        =   12
  77.       Top             =   1260
  78.       Width           =   5355
  79.    End
  80.    Begin VB.PictureBox picIcon 
  81.       BorderStyle     =   0  'None
  82.       Height          =   480
  83.       Index           =   7
  84.       Left            =   4920
  85.       Picture         =   "fTest.frx":0004
  86.       ScaleHeight     =   480
  87.       ScaleWidth      =   480
  88.       TabIndex        =   11
  89.       Top             =   600
  90.       Width           =   480
  91.    End
  92.    Begin VB.PictureBox picIcon 
  93.       BorderStyle     =   0  'None
  94.       Height          =   480
  95.       Index           =   6
  96.       Left            =   4260
  97.       Picture         =   "fTest.frx":0446
  98.       ScaleHeight     =   480
  99.       ScaleWidth      =   480
  100.       TabIndex        =   10
  101.       Top             =   600
  102.       Width           =   480
  103.    End
  104.    Begin VB.PictureBox picIcon 
  105.       BorderStyle     =   0  'None
  106.       Height          =   480
  107.       Index           =   5
  108.       Left            =   3540
  109.       Picture         =   "fTest.frx":0888
  110.       ScaleHeight     =   480
  111.       ScaleWidth      =   480
  112.       TabIndex        =   9
  113.       Top             =   600
  114.       Width           =   480
  115.    End
  116.    Begin VB.PictureBox picIcon 
  117.       BorderStyle     =   0  'None
  118.       Height          =   480
  119.       Index           =   4
  120.       Left            =   2880
  121.       Picture         =   "fTest.frx":0CCA
  122.       ScaleHeight     =   480
  123.       ScaleWidth      =   480
  124.       TabIndex        =   8
  125.       Top             =   600
  126.       Width           =   480
  127.    End
  128.    Begin VB.PictureBox picIcon 
  129.       BorderStyle     =   0  'None
  130.       Height          =   480
  131.       Index           =   3
  132.       Left            =   2160
  133.       Picture         =   "fTest.frx":110C
  134.       ScaleHeight     =   480
  135.       ScaleWidth      =   480
  136.       TabIndex        =   7
  137.       Top             =   600
  138.       Width           =   480
  139.    End
  140.    Begin VB.PictureBox picIcon 
  141.       BorderStyle     =   0  'None
  142.       Height          =   480
  143.       Index           =   2
  144.       Left            =   1500
  145.       Picture         =   "fTest.frx":154E
  146.       ScaleHeight     =   480
  147.       ScaleWidth      =   480
  148.       TabIndex        =   6
  149.       Top             =   600
  150.       Width           =   480
  151.    End
  152.    Begin VB.PictureBox picIcon 
  153.       BorderStyle     =   0  'None
  154.       Height          =   480
  155.       Index           =   1
  156.       Left            =   780
  157.       Picture         =   "fTest.frx":1990
  158.       ScaleHeight     =   480
  159.       ScaleWidth      =   480
  160.       TabIndex        =   5
  161.       Top             =   600
  162.       Width           =   480
  163.    End
  164.    Begin VB.PictureBox picIcon 
  165.       BorderStyle     =   0  'None
  166.       Height          =   480
  167.       Index           =   0
  168.       Left            =   120
  169.       Picture         =   "fTest.frx":1DD2
  170.       ScaleHeight     =   480
  171.       ScaleWidth      =   480
  172.       TabIndex        =   4
  173.       Top             =   600
  174.       Width           =   480
  175.    End
  176.    Begin VB.CommandButton btn 
  177.       Caption         =   "Button"
  178.       Height          =   435
  179.       Index           =   3
  180.       Left            =   4200
  181.       TabIndex        =   3
  182.       Top             =   120
  183.       Width           =   1335
  184.    End
  185.    Begin VB.CommandButton btn 
  186.       Caption         =   "Button"
  187.       Height          =   435
  188.       Index           =   2
  189.       Left            =   2820
  190.       TabIndex        =   2
  191.       Top             =   120
  192.       Width           =   1335
  193.    End
  194.    Begin VB.CommandButton btn 
  195.       Caption         =   "Button"
  196.       Height          =   435
  197.       Index           =   1
  198.       Left            =   1440
  199.       TabIndex        =   1
  200.       Top             =   120
  201.       Width           =   1335
  202.    End
  203.    Begin VB.CommandButton btn 
  204.       Caption         =   "Button"
  205.       Height          =   435
  206.       Index           =   0
  207.       Left            =   60
  208.       TabIndex        =   0
  209.       Top             =   120
  210.       Width           =   1335
  211.    End
  212. End
  213. Attribute VB_Name = "Form1"
  214. Attribute VB_Creatable = False
  215. Attribute VB_Exposed = False
  216. Option Explicit
  217.  
  218. Private tt As New cToolTip
  219.  
  220. Private Sub btn_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  221.     tt.setcontrol btn(Index).hWnd, "Button " + Format$(Index)
  222. End Sub
  223.  
  224. Private Sub Check1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  225.     tt.setcontrol Check1.hWnd, "Check"
  226. End Sub
  227.  
  228. Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  229.     tt.setcontrol List1.hWnd, "List"
  230. End Sub
  231.  
  232. Private Sub Radio_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  233.     tt.setcontrol Radio(Index).hWnd, "Radio " + Format$(Index)
  234. End Sub
  235.  
  236. Private Sub picIcon_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  237.     tt.setcontrol picIcon(Index).hWnd, "Icon " + Format$(Index)
  238. End Sub
  239.  
  240. Private Sub txt_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  241.     tt.setcontrol txt(Index).hWnd, "Text Box " + Format$(Index)
  242. End Sub
  243.